home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / code_gen / codegen / codegen.mdb / Templates.json < prev   
Encoding:
JavaScript Object Notation  |  1995-09-07  |  10.8 KB
  1. {
  2.     "schema": {
  3.         "Name": "Text (15)",
  4.         "Type": "Long Integer",
  5.         "Author": "Text (50)",
  6.         "Code": "Memo/Hyperlink (255)"
  7.     },
  8.     "data": [
  9.         {
  10.             "Name": "Default",
  11.             "Type": 0,
  12.             "Author": "Steve Perry",
  13.             "Code": "Sub {sub} ()\r\n'*******************************************************************************\r\n'*  AUTHOR: {author}                                                           *\r\n'*  CREATED: {date}                                                            *\r\n'*                                                                             *\r\n'*  SUB:        {sub}                                                          *\r\n'*  PARAMETERS: (tbd)                                                          *\r\n'*                                                                             *\r\n'*  CALLED BY:  (tbd)                                                          *\r\n'*                                                                             *\r\n'*******************************************************************************\r\n'\r\n'************************************\r\n'*  Local variables                 *\r\n'************************************\r\n\r\nDim sMessage                             As String\r\nDim sProcedureName                       As String\r\nDim nOldMousePtr                         As Integer\r\n   \r\n   '************************************\r\n   '*  Procedure Code                  *\r\n   '************************************\r\n   On Error GoTo Error_{sub}\r\n   'gnDebugging = true\r\n   sProcedureName = \"{sub}()\"\r\n   If gnDebugging Then\r\n       Debug.Print \"+Entering: \" & sProcedureName\r\n   End If\r\n\r\n   nOldMousePtr = Screen.Mousepointer 'save current pointer\r\n   Screen.Mousepointer = 11           'Change to Hourglass\r\n   \r\n   '*************************************************\r\n   'Enter your code here...\r\n   '*************************************************\r\n\r\n'***********************\r\nExit_{sub}:\r\n'***********************\r\n   Screen.Mousepointer = nOldMousePtr ' restore old pointer\r\n   \r\n   If gnDebugging Then\r\n       Debug.Print \"-Leaving: \" & sProcedureName\r\n   End If\r\n   Exit Sub\r\n   \r\n'************************\r\nError_{sub}:\r\n'************************\r\n   sMessage = \"Application: \" & gsPROGRAM_ID & chr$(13) \r\n   sMessage = sMessage & \"Module: \" & msMODULE_FILENAME & chr$(13)\r\n   sMessage = sMessage & \"Error: \" & CStr(Err) & \" (\" & Error$ & \").\"\r\n   MsgBox sMessage, 48, sProcedureName\r\n   If gnDebugging Then\r\n       Resume Next\r\n   Else\r\n       Resume Exit_{sub}\r\n   End If\r\n   \r\nEnd Sub\r\n "
  14.         },
  15.         {
  16.             "Name": "Default",
  17.             "Type": 1,
  18.             "Author": "Steve Perry",
  19.             "Code": "Function {function} () As Integer\r\n'*******************************************************************************\r\n'*  AUTHOR: {author}                                                           *\r\n'*  CREATED: {date}                                                            *\r\n'*                                                                             *\r\n'*  FUNCTION:   {function}                                                     *\r\n'*  PARAMETERS: (tbd)                                                          *\r\n'*  RETURNS:    TRUE (-1) if successful; FALSE (0) if an error occurred.       *\r\n'*                                                                             *\r\n'*  CALLED BY:  (tbd)                                                          *\r\n'*                                                                             *\r\n'*******************************************************************************\r\n'\r\n'************************************\r\n'*  Local variables                 *\r\n'************************************\r\n\r\nDim sMessage                             As String\r\nDim sProcedureName                       As String\r\nDim nOldMousePtr                         As Integer\r\n\r\n   '************************************\r\n   '*  Procedure Code                  *\r\n   '************************************\r\n   On Error GoTo Error_{function}\r\n   'gnDebugging = true\r\n   sProcedureName = \"{function}()\"\r\n   If gnDebugging Then\r\n       Debug.Print \"+Entering: \" & sProcedureName\r\n   End If\r\n   \r\n   nOldMousePtr = Screen.Mousepointer 'save current pointer\r\n   Screen.Mousepointer = 11           'Change to Hourglass\r\n\r\n   {function} = FALSE    ' Set default error return.\r\n   \r\n   '*************************************************\r\n   'Enter your code here...\r\n   '*************************************************\r\n   \r\n   {function} = TRUE     ' Set return to successful.\r\n\r\n'***********************\r\nExit_{function}:\r\n'***********************\r\n   Screen.Mousepointer = nOldMousePtr ' restore old pointer\r\n   \r\n   If gnDebugging Then\r\n       Debug.Print \"-Leaving: \" & sProcedureName\r\n   End If\r\n   Exit Function\r\n\r\n'************************\r\nError_{function}:\r\n'************************\r\n\r\n   sMessage = \"Application: \" & gsPROGRAM_ID & chr$(13) \r\n   sMessage = sMessage & \"Module: \" & msMODULE_FILENAME & chr$(13)\r\n   sMessage = sMessage & \"Error: \" & CStr(Err) & \" (\" & Error$ & \").\"\r\n   MsgBox sMessage, 48, sProcedureName\r\n   If gnDebugging Then\r\n       Resume Next\r\n   Else\r\n       Resume Exit_{function}\r\n   End If\r\n\r\nEnd Function\r\n "
  20.         },
  21.         {
  22.             "Name": "Work - Short",
  23.             "Type": 0,
  24.             "Author": "Steve Perry",
  25.             "Code": "Sub {sub} ()\r\n'*******************************************************************************\r\n'*  AUTHOR: {author}                                                           *\r\n'*  CREATED: {date}                                                            *\r\n'*                                                                             *\r\n'*  SUB:        {sub}                                                          *\r\n'*  PARAMETERS: (tbd)                                                          *\r\n'*                                                                             *\r\n'*  CALLED BY:  (tbd)                                                          *\r\n'*                                                                             *\r\n'*******************************************************************************\r\n'\r\n'************************************\r\n'*  Local variables                 *\r\n'************************************\r\n\r\nDim sMessage                             As String\r\nDim sProcedureName                       As String\r\nDim nOldMousePtr                         As Integer\r\n   \r\n   '************************************\r\n   '*  Procedure Code                  *\r\n   '************************************\r\n   On Error GoTo Error_{sub}\r\n   \r\n   'gnDebugging = true\r\n   sProcedureName =  \"{sub}()\"\r\n   If gnDebugging Then\r\n       Debug.Print \"+Entering: \" & msMODULE_FILENAME & \" , \" & sProcedureName\r\n   End If\r\n\r\n   nOldMousePtr = Screen.Mousepointer 'save current pointer\r\n   Screen.Mousepointer = 11           'Change to Hourglass\r\n   \r\n   '*************************************************\r\n   'Enter your code here...\r\n   '*************************************************\r\n\r\n'***********************\r\nExit_{sub}:\r\n'***********************\r\n   \r\n   Screen.Mousepointer = nOldMousePtr ' restore old pointer\r\n   \r\n   If gnDebugging Then\r\n       Debug.Print \"-Leaving: \" & sProcedureName\r\n   End If\r\n   Exit Sub\r\n   \r\n'************************\r\nError_{sub}:\r\n'************************\r\n   sMessage = \"Application: \" & gsPROGRAM_ID & chr$(13) \r\n   sMessage = sMessage & \"Module: \" & msMODULE_FILENAME & chr(13)\r\n   sMessage = sMessage & \"Procedure: \"   sProcedureName & chr(13)\r\n   sMessage = sMessage & \"Error: \" & CStr(Err) & \" (\" & Error$ & \")\"\r\n   MsgBox sMessage, 48, \"Error: \" & sProcedureName\r\n   If gnDebugging Then\r\n       Resume Next\r\n   Else\r\n       Resume Exit_{sub}\r\n   End If\r\n   \r\nEnd Sub\r\n "
  26.         },
  27.         {
  28.             "Name": "Work - Short",
  29.             "Type": 1,
  30.             "Author": "Steve Perry",
  31.             "Code": "Function {function} () As Integer\r\n'*******************************************************************************\r\n'*  AUTHOR: {author}                                                           *\r\n'*  CREATED: {date}                                                            *\r\n'*                                                                             *\r\n'*  FUNCTION:   {function}                                                     *\r\n'*  PARAMETERS: (tbd)                                                          *\r\n'*  RETURNS:    TRUE (-1) if successful; FALSE (0) if an error occurred.       *\r\n'*                                                                             *\r\n'*  CALLED BY:  (tbd)                                                          *\r\n'*                                                                             *\r\n'*******************************************************************************\r\n'\r\n'************************************\r\n'*  Local variables                 *\r\n'************************************\r\n\r\nDim sMessage                             As String\r\nDim sProcedureName                       As String\r\nDim nOldMousePtr                         As Integer\r\n\r\n   '************************************\r\n   '*  Procedure Code                  *\r\n   '************************************\r\n   On Error GoTo Error_{function}\r\n   \r\n   'gnDebugging = true\r\n   sProcedureName = \"{function}()\"\r\n   If gnDebugging Then\r\n       Debug.Print \"+Entering: \" & msMODULE_FILENAME & \" , \" & sProcedureName\r\n   End If\r\n   \r\n   nOldMousePtr = Screen.Mousepointer 'save current pointer\r\n   Screen.Mousepointer = 11           'Change to Hourglass\r\n\r\n   {function} = FALSE    ' Set default error return.\r\n   \r\n   \r\n   '*************************************************\r\n   'Enter your code here...\r\n   '*************************************************\r\n   \r\n   \r\n   {function} = TRUE     ' Set return to successful.\r\n\r\n'***********************\r\nExit_{function}:\r\n'***********************\r\n\r\n   Screen.Mousepointer = nOldMousePtr ' restore old pointer\r\n   \r\n   If gnDebugging Then\r\n       Debug.Print \"-Leaving: \" & sProcedureName\r\n   End If\r\n   Exit Function\r\n\r\n'************************\r\nError_{function}:\r\n'************************\r\n   sMessage = \"Application: \" & gsPROGRAM_ID & chr$(13) \r\n   sMessage = sMessage & \"Module: \" & msMODULE_FILENAME & chr(13)\r\n   sMessage = sMessage & \"Procedure: \"   sProcedureName & chr(13)\r\n   sMessage = sMessage & \"Error: \" & CStr(Err) & \" (\" & Error$ & \")\"\r\n   MsgBox sMessage, 48, \"Error: \" &  sProcedureName\r\n   If gnDebugging Then\r\n       Resume Next\r\n   Else\r\n       Resume Exit_{function}\r\n   End If\r\n\r\nEnd Function\r\n "
  32.         }
  33.     ]
  34. }